home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pcpdial.arc / MINN.CMD < prev    next >
Encoding:
Text File  |  1987-12-27  |  2.8 KB  |  169 lines
  1. ASSI S7"    "
  2. ASSI S0" "
  3. ASSI S2"MINNEAPOLIS, MN  [612]"
  4. LOG CLOSE
  5. BEGIN:
  6. CLEA
  7. LOCA 4,0
  8. MESS"                         ╔══╡ MINNEAPOLIS NUMBERS ╞══╗"
  9. MESS"                         ║                           ║"
  10. MESS"                         ║  A - Terrapin Station     ║"
  11. MESS"                         ║  B - Twin Cities          ║"
  12. MESS"                         ║  C - RTPM QX-10           ║"
  13. MESS"                         ║  D - MCMS Goliath         ║"
  14. MESS"                         ║  E - Conference Tree      ║"
  15. MESS"                         ║  F - PMS Twin Cities      ║"
  16. MESS"                         ║  M - Manual Dial          ║"
  17. MESS"                         ║  Q - Return to MAIN menu  ║"
  18. MESS"                         ║                           ║"
  19. MESS"                         ╠═══════════════════════════╣"
  20. MESS"                         ║ ENTER YOUR CHOICE(S):     ║"
  21. MESS"                         ║                           ║"
  22. MESS"                         ╚═══════════════════════════╝"
  23. LOCA 17,27
  24. GET S0
  25. TOP:
  26. FIND S0"A"
  27. IF FOUN
  28. ASSI S6"Terrapin Station"
  29. ASSI S8"6231156"
  30. GOSU REDIALER
  31. ELSE
  32. ENDI
  33. FIND S0"B"
  34. IF FOUN
  35. ASSI S6"Twin Cities"
  36. ASSI S8"8248167"
  37. GOSU REDIALER
  38. ELSE
  39. ENDI
  40. FIND S0"C"
  41. IF FOUN
  42. ASSI S6"RPTM QX-10"
  43. ASSI S8"4722218"
  44. GOSU REDIALER
  45. ELSE
  46. ENDI
  47. FIND S0"D"
  48. IF FOUN
  49. ASSI S6"MCMS Goliath"
  50. ASSI S8"7533082"
  51. GOSU REDIALER
  52. ELSE
  53. ENDI
  54. FIND S0"E"
  55. IF FOUN
  56. ASSI S6"Conference Tree"
  57. ASSI S8"8549691"
  58. GOSU REDIALER
  59. ELSE
  60. ENDI
  61. FIND S0"F"
  62. IF FOUN
  63. ASSI S6"PMS Twin Cities"
  64. ASSI S8"9298966"
  65. GOSU REDIALER
  66. ELSE
  67. ENDI
  68. FIND S0"M"
  69. IF FOUN
  70. CLEA
  71. LOCA 5,20
  72. MESS"NUMBER TO DIAL:"
  73. LOCA 5,36
  74. ASSI S6"MANUAL DIAL"
  75. GET S8
  76. GOSU REDIALER
  77. ELSE
  78. ENDI
  79. FIND S0"Q"
  80. IF FOUN
  81. CLEA
  82. TRAN"!@!"
  83. WAIT"@"
  84. TRAN"D!"
  85. WAIT"@"
  86. CLEA
  87. LOCA 1,0
  88. PAUS 1
  89. EXEC"SELCITY.CMD"
  90. ELSE
  91. ENDI
  92. FIND S7"MORE"
  93. IF FOUN
  94. ASSI S7"    "
  95. GOTO TOP
  96. ELSE
  97. ENDI
  98. MESS"ALL NUMBERS IN DIALING QUEUE FAILED TO ANSWER"
  99. MESS"RETURNING TO MAIN MENU"
  100. ALAR
  101. ASSI S0"Q"
  102. GOTO TOP
  103. REDIALER:
  104. CLEA
  105. ISFI S6
  106. IF NOT SUCC
  107. LOCA 5, 35
  108. MESS"DIALING"
  109. MESS" "
  110. MESS S6
  111. MESS S8
  112. TRAN"I!"
  113. PAUS 1
  114. TRAN"ATZ!"
  115. WAIT"OK"
  116. TRAN"^E!"
  117. WAIT"READY"
  118. TRAN"D"
  119. TRAN S8
  120. TRAN"!"
  121. RGET S9
  122. RGET S9 80 40
  123. RGET S9 40 40
  124. RGET S9 40 40
  125. GOTMESS:
  126. FIND S9"BUSY"
  127. IF FOUN
  128. MESS S6
  129. MESS S8
  130. MESS"BUSY; GOING TO NEXT NUMBER"
  131. MESS"************************************************************"
  132. ASSI S7"MORE"
  133. GOTO RTRN
  134. ENDI
  135. FIND S9"ANSWER TONE"
  136. IF FOUN
  137. SET PARI NONE
  138. SET DATA 8
  139. CLEA
  140. MESS"CONNECTED TO"
  141. MESS S8
  142. MESS S6
  143. MESS S1
  144. ALAR
  145. EXIT
  146. ELSE
  147. FIND S9"RINGING"
  148. IF FOUN
  149. RGET S9
  150. FIND S9"RINGING"
  151. IF FOUN
  152. LOG OPEN S6
  153. MESS"NO ANSWER - STILL RINGING"
  154. MESS S8
  155. MESS S6
  156. MESS S1
  157. LOG CLOSE
  158. TRAN"^C^D^C"
  159. MESS"************************************************************"
  160. GOTO RTRN
  161. ELSE
  162. GOTO GOTMESS
  163. ENDI
  164. ENDI
  165. ENDI
  166. ENDI
  167. RTRN:
  168. RETURN
  169.